if ((%.au.loc > 0) || ((%.au.loc == $null) && (%.au.glob > 0))) { auto %.au.bit $+ dq %.au.chan | set % [ $+ [ %.au.var ] ] }
if ($_vd(.au.num) > 0) goto loopi
}
if ($_vi(.au.typ) <= 3) goto loopo
; Clear counters and recent files
_remcfg counter-e
_cleandc
_remcfg Gets | _remcfg Sends | _remcfg Files
if ($_ppcfg(Sound,AutoGetForget)) _remcfg AutoGet
; Clear ignores
if ($_ppcfg(Misc,ClearIgnoreOnExit)) {
set %.ign $ignore(0)
if (%.ign > 0) {
:loopig
.ignore -r $ignore(%.ign)
if ($_vd(.ign) > 0) goto loopig
}
}
if (($version > 5.41) && (%pp.lastwarn != $version)) { set %pp.lastwarn $version | _error You are NOT running mIRC %col.att $+ 5.41 $+ ! P&P %pp.ver may not run properly on newer versions! See P&P help for info on getting updates. (you will not get this warning again) }
; P&P integrity check
set %.ic.old1 $_ppcfg(Misc,Integrity1)
set %.ic.old2 $_ppcfg(Misc,Integrity2)
if ((%.ic.old1 !isnum) || (%.ic.old2 !isnum) || (%.ic.old1 < 1) || (%.ic.old2 < 1)) { set %.+icerr $true | disps %col.att $+ Integrity check- Integrity data corrupted or missing, no integrity check performed. }
else {
if ($alias(0) < %.ic.old1) { set %.+icerr $true | disps %col.att $+ Integrity check- %col.target $+ $calc(%.ic.old1 - $alias(0)) $+ %col.target $+ alias $+ file(s) that were previously loaded cannot be found }
if ($script(0) < %.ic.old2) { set %.+icerr $true | disps %col.att $+ Integrity check- %col.target $+ $calc(%.ic.old2 - $script(0)) $+ %col.target $+ script $+ file(s) that were previously loaded cannot be found }
if ($alias(0) > %.ic.old1) { set %.+icerr $true | disps %col.att $+ Integrity check- %col.target $+ $calc($alias(0) - %.ic.old1) $+ unrecognized %col.target $+ alias $+ file(s) found }
if ($script(0) > %.ic.old2) { set %.+icerr $true | disps %col.att $+ Integrity check- %col.target $+ $calc($script(0) - %.ic.old2) $+ unrecognized %col.target $+ script $+ file(s) found }
}
if (%.+icerr) { _gen-icf | disps Integrity files have been updated to not show these errors again. }
; Verify sound index status
if (%+verify.indices) {
if (%+index.mp) {
set %.index $_ppdir $+ mp-list.txt
if ($exists(%.index)) {
set %.curr $read -l0 %.index
set %.ext $_maprev(mp2,*.) $+ ; $+ $_maprev(mp3,*.)
set %.num $_countfiles(%.ext,$_mpdir)
if (%.num != %.curr) {
if (%+dynrate.mp) disps Index file for MP2/3 files %col.att $+ outdated! (/mpindex to update)
else { disps Index file for MP2/3 files was %col.att $+ outdated! (updating...) | mpindex }
}
}
else {
if (%+dynrate.mp) disps Index file for MP2/3 files %col.att $+ not created! (/mpindex to create)
else { disps Index file for MP2/3 files was %col.att $+ not created! (creating...) | mpindex }
if ($chan(%.rj.num).key == $null) set %_rejoin.keys %_rejoin.keys
else set %_rejoin.keys %_rejoin.keys $chan(%.rj.num).key
if ($_vd(.rj.num) > 0) goto loop
set %_rejoin.chans $_s2c(%_rejoin.chans)
set %_rejoin.keys $remove($_s2c(%_rejoin.keys),)
if ($_ppcfg(Misc,RejoinChansOnReconnect)) disps When you reconnect, you will rejoin your channels unless you press %col.option $+ F10 before reconnecting.
if ($comchan($nick,0) == 0) set %-nickcol. [ $+ [ $nick ] ]
if ($nick == $me) {
set %.var - $+ *.*.* $+ $chan
[ unset % $+ [ %.var ] ]
_timersinc 90 -recentpart. $+ $chan
set %.au.var auto-j. $+ $chan $+ .exp | set %.au.code % [ $+ [ %.au.var ] ]
if (%.au.code == $null) set %.au.code %auto-j.exp | if (%.au.code > 2) { auto jdq $chan | set % [ $+ [ %.au.var ] ] }
set %.au.var auto-o. $+ $chan $+ .exp | set %.au.code % [ $+ [ %.au.var ] ]
if (%.au.code == $null) set %.au.code %auto-o.exp | if (%.au.code > 2) { auto odq $chan | set % [ $+ [ %.au.var ] ] }
set %.au.var auto-f. $+ $chan $+ .exp | set %.au.code % [ $+ [ %.au.var ] ]
if (%.au.code == $null) set %.au.code %auto-f.exp | if (%.au.code > 2) { auto fdq $chan | set % [ $+ [ %.au.var ] ] }
}
else set %-recent.part. [ $+ [ $chan ] ] $fulladdress
}
on 1:quit:{
set %.var -lastt. $+ $fulladdress $+ *
[ unset % $+ [ %.var ] ]
set %-nickcol. [ $+ [ $nick ] ]
set %.num $comchan($nick,0)
:loop
set %-recent.part. [ $+ [ $comchan($nick,%.num) ] ] $fulladdress
if ($_vd(.num) > 0) goto loop
}
on 1:chat:*:if (($nick == %_qlogin.nick) || ($nick == $me)) return | if ($appactive == $false) if (((%_away.why == $null) && (%+flash.dcch)) || ((%_away.why) && (%+flash.dcca))) flash Message from $nick
on 1:text:*:?:if (%+colorflood.check) _cccflood $calc($len($1-) - $len($strip($1-))) | if ($appactive == $false) if (((%_away.why == $null) && (%+flash.msgh)) || ((%_away.why) && (%+flash.msga))) flash Message from $nick
on 1:text:*:#:if (%+colorflood.check) _cccflood $calc($len($1-) - $len($strip($1-)))
on 1:action:*:*:if (%+colorflood.check) _cccflood $calc($len($1-) - $len($strip($1-)))
on 1:notice:*:*:{
set %_last.notice.nick $nick | set %_last.notice - $1-
if (%+colorflood.check) _cccflood $calc($len($1-) - $len($strip($1-)))
}
alias -l _cccflood {
if ($1 < 1) return
_timersinc 10 -cccfld. $+ $site $1
if (%-cccfld. [ $+ [ $site ] ] > 400) {
.ignore -ku30 $wildsite
disps %col.att $+ Ignoring colors/etc. from %col.target $+ $wildsite $+ for 30 seconds to prevent lockup/screen lag. (receiving too many control codes.)
on 1:dns:if ($naddress == %-dcclogin) { .disable #-dcclogin | if ($raddress == $null) { .disable #-ircdlogin | _error Could not resolve address to login. } | _qlogin $raddress %-dccloginp }
#-dcclogin end
#-ircdlogin off
on 1:open:=:if ($nick != %_qlogin.nick) halt | .disable #-ircdlogin | msg =$nick USER raw1 raw2 raw3 :Peace and Protection %pp.ver | if ($right($me,1) isnum) msg =$nick NICK $left($me,7) $+ ^ $+ $_i($right($me,1)) | else msg =$nick NICK $left($me,7) $+ ^2
#-ircdlogin end
#-wwdc off
on 1:dns:.disable #-wwdc | if ($raddress == $null) _error Could not resolve user's address to initiate chat. | c $raddress
#-wwdc end
#-dcc2ip off
on 1:dns:.disable #-dcc2ip | if ($iaddress == $null) _error Could not resolve IP address to connect. | .timer -m 1 1 %_dcc.cmd.todo1 $iaddress $+ %_dcc.cmd.port %_dcc.cmd.todo2
#-dcc2ip end
on 1:dccserver:chat:.creq ask | flash Chat from $nick
on 1:dccserver:send:.sreq ask | flash File from $nick
